home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / legaltools / lsdlt033.dms / lsdlt033.adf / macros / jed-startup < prev    next >
Encoding:
Text File  |  1990-09-13  |  3.0 KB  |  82 lines
  1. ; Typical startup script for jed 2.0
  2. ; 14-Sep-92
  3.  
  4. ; Lots of keybindings.
  5.  
  6. (bind
  7.     `esc'               { (cli) }
  8.     `help'              { (sleep) }
  9.     `shift help'        { (unsleep) }
  10.     `control tab'       { (insert `a' ~\t) }
  11.     `shift tab'         { (move `lt' 1) }
  12.     `tab'               { (move `rt' 1) }
  13.     `return'            { (split) }
  14.     `backspace'         { (delete `p') }
  15.     `del'               { (delete `c') }
  16.     `shift backspace'   { (delete `sl') }
  17.     `shift del'         { (delete `el') }
  18.     `control del'       { (delete `l') }
  19.  
  20.     `control b'         { (block `t') }
  21.     `alt b'             { (block `s') }
  22.     `alt B'             { (block `e') }
  23.     `control alt b'     { (block `k') }
  24.     `control i'         { (insert `b') }
  25.     `control z'         { (delete `b') }
  26.     `control x'         { (cut `b' 0) }
  27.     `control c'         { (copy `b' 0) }
  28.     `control v'         { (insert `cb' 0) }
  29.     `control q'         { (cut `el' -1) }
  30.     `control y'         { (cut `l' -1) }
  31.     `control u'         { (insert `cb' -1) }
  32.  
  33.     `control o'         { (openfile (getstr `file> ')) }
  34.     `alt control o'     { (openfile (freq `r' `file...' (info `fullname'))) }
  35.     `control I'         { (insert `f' (getstr `file> ')) }
  36.     `alt control I'     { (insert `f' (freq `r' `include file...' (info `dirname'))) }
  37.     `control O'         { (newfile (getstr `new file> ')) }
  38.     `alt control O'     { (newfile (freq `r' `new file...' (info `dirname'))) }
  39.     `control n'         { (newview) }
  40.     `control W'         { (savefileas (getstr `file> ')) }
  41.     `alt control W'     { (savefileas (freq `w' `save as...' (info `fullname'))) }
  42.     `control w'         { (savefile) }
  43.     `control N'         { (rename (getstr `new name> ')) }
  44.     `control d'         { (cd (getstr `cd> ')) }
  45.     `control k'         { (clear) }
  46.  
  47.     `control F'         { (find `s' (getstr `find> ')) }
  48.     `control f'         { (find `n') }
  49.     `control alt f'     { (find `p') }
  50.     `control R'         { (replace `s' (getstr `replace> ')) }
  51.     `control r'         { (replace `r')(find `n') }
  52.     `control g'         { (getref) }
  53.     `control G'         { (getref (getstr `reference> ')) }
  54.     `control h'         { (move `mb') }
  55.     `control j'         { (move `ln' (getnum `line> ')) }
  56.  
  57.     `control .'         { (nextwind `a') }
  58.     `control ,'         { (prevwind `a') }
  59.  
  60.     `control s'         { (script `x' (getstr `script file> ')) }
  61.     `alt control s'     { (script `l') }
  62.     `control S'         { (script `b') }
  63.     `alt control S'     { (script `f') }
  64.  
  65.     `f1'                { (move `bm' 1) }
  66.     `f2'                { (move `bm' 2) }
  67.     `f3'                { (move `bm' 3) }
  68.     `f4'                { (move `am') }
  69.     `shift f1'          { (move `sm' 1) }
  70.     `shift f2'          { (move `sm' 2) }
  71.     `shift f3'          { (move `sm' 3) }
  72.  
  73.     `alt d'             { (insert `s' (info `date')) }
  74. )
  75.  
  76. ; Create the menus, comment out the next line if you don't want menus.
  77. (setmenu `s:jed/jed-menus')
  78.  
  79. ; Path for references.
  80. (addpath `')
  81.  
  82.